-- Written for Daggerfall Unity by Harbinger451
Quest: PROST019
DisplayName: Visit a Recommended Courtesan
-- Message panels
QRC:

QuestorOffer:  [1000]
<ce>             You seem to be making a name for your self, %pcf.
<ce>          Bet the prostitutes are falling over themselves for you!
<ce>        I can recommend a higher class courtesan if you're interested?
                                     <--->
<ce>                  You're moving up in the world, %pcf.
<ce>          The courtesans of Iliac Bay can provide an easy and
<ce>          enjoyable way to gain favor in the higher echelons!
<ce>                    I have a particular one in mind,
<ce>                         if you're interested?
                                     <--->
<ce>                  Can I give you a piece of advice?
<ce>             Don't waste your time with common prostitutes.
<ce>          Seek out a courtesan or two, they're so much better.
<ce>           I can recommend a special one for you, if you like?
                                     <--->
<ce>                  You know, the courtesans of %reg hold
<ce>           a surprising amount of influence among the nobility!
<ce>        They're expensive, but can do wonders for your reputation.
<ce>                   Perhaps I can suggest one for you?
                                     <--->
<ce>              Have you ever been with a prostitute, young %ra?
<ce>                           Of course you have. 
<ce>                 But have you ever been with a courtesan?
<ce>                             No comparison!
<ce>           I know one who might be able to fit you in, so to speak.
<ce>                  Worth every penny, if you're interested?

RefuseQuest:  [1001]
<ce>                            You're loss, %ra.
<ce>                  I'm just trying to help you advance.
                                     <--->
<ce>                   Oh well, it was just a suggestion.
                                     <--->
<ce>                   I was just trying to do you a favor.
<ce>         If you want to be accepted by us, you need to live like us.
                                     <--->
<ce>           The courtesans are the grease in the machinery of state!
<ce>                  But, if you're not interested... fine!
                                     <--->
<ce>               That's a very blinkered viewpoint my friend.
<ce>            You clearly don't know what you're missing out on!

AcceptQuest:  [1002]
<ce>                     Go see _courtesan_ of _palace_
<ce>                        in __palace_ and they'll
<ce>                      give you the time of your life.
<ce>                They'll only be there for =traveltime_ days, 
<ce>                  be sure to have plenty of gold though.
                                     <--->
<ce>                     Give _courtesan_ of _palace_
<ce>                         in __palace_ a try.
<ce>                They'll only be there for =traveltime_ days.
<ce>                     You won't regret it my friend. 
<ce>                It'll be money well spent... a lot of money.
                                     <--->
<ce>                      Try _courtesan_ of _palace_
<ce>                        in __palace_, and see if
<ce>                   you don't have the time of your life. 
<ce>                They'll only be there for =traveltime_ days. 
<ce>                Be sure to take plenty of gold with you mind.
                                     <--->
<ce>                        _courtesan_ of _palace_
<ce>                    in __palace_ is the best there is.
<ce>                They'll only be there for =traveltime_ days. 
<ce>                     You'll get your money's worth,
<ce>                      there's not doubt about that.
                                     <--->
<ce>                 _courtesan_ of _palace_ in __palace_
<ce>               will put things into perspective for you.
<ce>                They'll only be there for =traveltime_ days. 
<ce>                     You'll get your money's worth,
<ce>             and you'll learn a little something along the way.

QuestFail:  [1003]
<ce>                    You seem a little light my friend.
<ce>        If you don't have the money, you can talk to my guards!
<ce>                                Guards!
                                     <--->
<ce>                    You don't have enough coin, fool.
<ce>           Trying to get by without paying, how low born of you!
<ce>                  My guards will show you some respect!
                                     <--->
<ce>         You'll be sorry, trying it on when you don't have the gold.
<ce>                Let's see what my guards have to say!
                                    <--->
<ce>                 Not enough coin! Well, that is a shame?
<ce>                My guards will teach you a thing or two!
<ce>                           Guards! Guards!

QuestComplete:  [1004]
<ce>             It was a pleasure doing business with you, %pcf. 
<ce>             I'll tell all my friends what a delight you are.
                                     <--->
<ce>                    You seemed to enjoy yourself, %pcf.
<ce>              But then, the game of pleasure is my business.
                                     <--->
<ce>              Well, that seemed to get a load off your mind.
<ce>          I have nothing but good things to say about you, %pcf.
<ce>                 And I'll say it to everyone that counts.
                                     <--->
<ce>                  By the Nines, that really got me going.
<ce>               And believe me, %pcf, in my line of business,
<ce>              I don't get to say that often... you're amazing!

RumorsDuringQuest:  [1005]
Seems like everyone is on the game these days. Even the nobles have their courtesans.
<--->
The influence of the courtesans seems to be growing by the day.
<--->
Have you heard about _courtesan_, shocking behaviour for someone with such good breeding.
<--->
All the nobles are in a flap over some new courtesan. _courtesan_ is turning all their heads apparently.

RumorsPostsuccess:  [1007]
Some lucky %ra had a real good time with _courtesan_ recently.
<--->
_courtesan_ has been distracted lately. Fallen hard for an attractive bit of rough, apparently.
<--->
_courtesan_ is looking for a particular %ra freebooter. Rocked %g3 world it seems.
<--->
The influence of the courtesans seems to be growing in all the courts of the land, even the highest.

QuestorPostsuccess:  [1008]
Oh, it's you, %pcf. I heard you enjoyed your little assignation with _courtesan_.
<--->
_courtesan_ won't stop singing your praises, %pcf. I think %g1 enjoyed you almost as much as you did %g2.

QuestLogEntry:  [1010]
%qdt
_qgiver_ in __qgiver_ of ___qgiver_
recommended I visit an exceptional courtesan called
_courtesan_ in _palace_ of __palace_.
I have =traveltime_ days to meet up with them, 

Message:  1011
%qdt:
I met with the courtesan _courtesan_
in the _palace_ of __palace_
and had a real good time. It only cost me 1000 gold pieces.
Unfortunately, I now have a rash that itches something awful.

Message:  1012
<ce>                   I have such delights to show you!
<ce>            Treat me right and I'll spread the word in court.
<ce>                   For you, it'll only cost 1000 gold?
                                     <--->
<ce>            Well, you look like a good time waiting to happen?
<ce>          I can make life easy for you in court if you please me.
<ce>                   Special price, just 1000 gold pieces?
                                     <--->
<ce>                  Do you want to use me as a plaything?
<ce>          I'll tell everyone that counts what a great %ra you are.
<ce>      1000 gold will keep me in the style to which I've become accustomed?
                                     <--->
<ce>            1000 gold pieces and you can have me any which way.
<ce>                  You can do whatever you want with me?
<ce>            To sweeten the deal, I'll sing your praises in court.

Message:  1013
<ce>                    Oh this is going to be good, %pcf. 
<ce>                          Ready when you are.
                                     <--->
<ce>                       That's the spirit, %pcf!
<ce>                   I'm all a tingle with anticipation.
                                     <--->
<ce>                     I'm ready and willing, %pcf.
<ce>                    So don't delay your advances!
                                     <--->
<ce>                          Mount up then, %pcf.
<ce>                 I'm going to give you one hell of a ride!

Message:  1014
<ce>             You didn't strike me as the penny pinching kind.
<ce>                Oh well, stop wasting my time and leave.
                                     <--->
<ce>               I wouldn't have pegged you as cheap, %pcf.
<ce>                 Well move along then, time is money.
                                     <--->
<ce>                     So you don't think I'm worth it?
<ce>                         You offend me, %pcf.
                                    <--->
<ce>                       Well, ain't that a shame?
<ce>                 I was looking forward to having a go on
<ce>                       that sweet body of yours.

Message:  1015
<ce>                          Now, lets get down to
<ce>                        the business of pleasure.
<ce>                                  ...
<ce>                       Mmm, yes! Take me! Use me!
<ce>                   %oth! You really know what's what.
<ce>                                  ...
<ce>                        Oh my! Oh my! Yes! Yes!
<ce>                                  ...
<ce>                        I'm melting! I'm melting!
<ce>                                  ...
<ce>                       Yes! Yes! YES! Ooooh-aaaah!
<ce>                                  ...
<ce>                   By Sanguine that was amazing, %pcf.
<ce>                       I can barely stop blushing!
                                     <--->
<ce>                          Now, lets get to work
<ce>                        with some serious pleasure.
<ce>                                  ...
<ce>                          Don't hold back, %pcf.
<ce>                                  ...
<ce>                       Mmm, yes! Take me! Use me!
<ce>                  %oth! You really know what it takes.
<ce>                                  ...
<ce>                        Oh gods! Oh my! Yes! Yes!
<ce>                                  ...
<ce>                       I'm yours! I'm yours, %pcf!
<ce>                                  ...
<ce>                      %oth! Yes! YES! Ooooh-aaaah!
<ce>                                  ...
<ce>                By all the divines that was incredible, %pcf.

Message:  1016
%qdt:
I met with the courtesan _courtesan_ 
in the _palace_ of __palace_
and had a real good time. It only cost me 1000 gold pieces.

QBN:

Person _qgiver_ group Questor
Person _courtesan_ factiontype Province female

Place _palace_ remote palace

Clock _traveltime_ 08.00:00 12.00:00

Foe _guard1_ is Knight
Foe _guard2_ is Knight

-- Quest start-up:
	start timer _traveltime_
	log 1010 step 0
	place npc _courtesan_ at _palace_

variable _traveltime_

_outoftime_ task:
    when _traveltime_ and not _courtesanclicked_
	remove log step 0
	end quest

_courtesanclicked_ task:
	clicked npc _courtesan_

_successorfailure_ task:
	when _courtesanclicked_
	prompt 1012 yes _pcpay_ no _pctight_

_pcpay_ task:
    say 1013
    pay 1000 money do _pcpaid_ otherwise do _pcpoor_

_pctight_ task:
    say 1014
    change repute with _courtesan_ by -2
    remove log step 0
    end quest

_pcpaid_ task:
    clear _pcpay_
    pick one of _pcinfect1in3_ _pcclear_ _pcclear_

_pcinfect1in3_ task:
    pick one of _pcinfect1in9_ _pcclear_ _pcclear_

_pcinfect1in9_ task:
    pick one of _pcinfect1in27_ _pcclear_ _pcclear_

_pcinfect1in27_ task:
    pick one of _pox_ _pox_ _leprosy_ _plague_

_pox_ task:
    say 1015
    train pc Etiquette
    give pc nothing
    change repute with _courtesan_ by +10
    remove log step 0
    log 1011 step 1
    make pc ill with Witches'_Pox
    end quest

_leprosy_ task:
    say 1015
    train pc Etiquette
    give pc nothing
    change repute with _courtesan_ by +10
    remove log step 0
    log 1011 step 1
    make pc ill with Leprosy
    end quest

_plague_ task:
    say 1015
    train pc Etiquette
    give pc nothing
    change repute with _courtesan_ by +10
    remove log step 0
    log 1011 step 1
    make pc ill with Plague
    end quest

_pcclear_ task:
    say 1015
    train pc Etiquette
    give pc nothing
    change repute with _courtesan_ by +10
    remove log step 0
    log 1016 step 1
    end quest

_pcpoor_ task:
    say 1003
    create foe _guard1_ every 0 minutes 1 times with 100% success
    create foe _guard2_ every 0 minutes 1 times with 100% success
    remove log step 0
    end quest
